UC知道求此道题目pascal解答[50分]在线等
来源：百度知道 编辑：UC知道 时间：2024/05/22 19:55:00
描述 Description
若某个家族人员过于庞大，要判断两个是否是亲戚，确实还很不容易，现在给出某个亲戚关系图，求任意给出的两个人是否具有亲戚关系。
规定：x和y是亲戚，y和z是亲戚，那么x和z也是亲戚。如果x,y是亲戚，那么x的亲戚都是y的亲戚，y的亲戚也都是x的亲戚。
输入格式 Input Format
第一行：三个整数n,m,p，（n<=5000,m<=5000,p<=5000），分别表示有n个人，m个亲戚关系，询问p对亲戚关系。
以下m行：每行两个数Mi，Mj，1<=Mi，Mj<=N，表示Ai和Bi具有亲戚关系。
接下来p行：每行两个数Pi，Pj，询问Pi和Pj是否具有亲戚关系。
输出格式 Output Format
P行，每行一个’Yes’或’No’。表示第i个询问的答案为“具有”或“不具有”亲戚关系。
样例输入 Sample Input
6 5 3
1 2
1 5
3 4
5 2
1 3
1 4
2 3
5 6
http://www.vijos.cn/Problem_Show.asp?id=1034
这是原题
有没有源程序啊
若某个家族人员过于庞大，要判断两个是否是亲戚，确实还很不容易，现在给出某个亲戚关系图，求任意给出的两个人是否具有亲戚关系。
规定：x和y是亲戚，y和z是亲戚，那么x和z也是亲戚。如果x,y是亲戚，那么x的亲戚都是y的亲戚，y的亲戚也都是x的亲戚。
输入格式 Input Format
第一行：三个整数n,m,p，（n<=5000,m<=5000,p<=5000），分别表示有n个人，m个亲戚关系，询问p对亲戚关系。
以下m行：每行两个数Mi，Mj，1<=Mi，Mj<=N，表示Ai和Bi具有亲戚关系。
接下来p行：每行两个数Pi，Pj，询问Pi和Pj是否具有亲戚关系。
输出格式 Output Format
P行，每行一个’Yes’或’No’。表示第i个询问的答案为“具有”或“不具有”亲戚关系。
样例输入 Sample Input
6 5 3
1 2
1 5
3 4
5 2
1 3
1 4
2 3
5 6
http://www.vijos.cn/Problem_Show.asp?id=1034
这是原题
有没有源程序啊
program ddd;
type longint=integer;
const maxn=5000;
var i,j,n,m,p,is,js:longint;
father:array[1..maxn]of longint;
function getfather(v:longint):longint;
begin
if father[v]=v then begin
getfather:=v;
exit;
end;
father[v]:=getfather(father[v]);
getfather:=father[v];
end;
procedure merge(x,y:longint);
begin
x:=getfather(x);
y:=getfather(y);
father[x]:=y;
end;
function judge(x,y:longint):boolean;
begin
x:=getfather(x);
y:=getfather(y);
if x=y then judge:=true else judge:=false;
end;
begin
read(n,m,p);
for i:=1 to n do father[i]:=i;
for i:=1 to m do
begin
read(is,js);
merge(is,js);
end;
for i:=1 to p do
begin
read(is,js);
if judge(is,js) then writeln('Yes') else
writeln('No');
end;
end.<